Chip 1998 September/CHIP Eylül 1998.iso/demolar/lokman/DISK1/_SETUP.2/Group1/Tarihdll.dll/0/RCDATA/TBAKRECFORM/TBAKRECFORM.txt

Text File | 1998-07-24 | 21KB | 759 lines

object BakRecForm: TBakRecForm
  Left = 8
  Top = 8
  Width = 614
  Height = 418
  ActiveControl = DBGridRECB
  Caption = 'Eski Re�eteler  ve  Re�ete Se�imi'
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 13
  object Panel4: TPanel
    Left = 0
    Top = 0
    Width = 606
    Height = 391
    HelpContext = 111
    Align = alClient
    BevelInner = bvLowered
    BorderWidth = 1
    Color = 8404992
    TabOrder = 0
    object BitBtnSec: TBitBtn
      Left = 401
      Top = 355
      Width = 95
      Height = 25
      Hint = 'Enter'
      HelpContext = 111
      Caption = 'Re�ete Se�'
      Default = True
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ModalResult = 1
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 5
      OnClick = BitBtnSecClick
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333300000000
        0000333377777777777733330FFFFFFFFFF033337F3FFF3F3FF733330F000F0F
        00F033337F777373773733330FFFFFFFFFF033337F3FF3FF3FF733330F00F00F
        00F033337F773773773733330FFFFFFFFFF033337FF3333FF3F7333300FFFF00
        F0F03333773FF377F7373330FB00F0F0FFF0333733773737F3F7330FB0BF0FB0
        F0F0337337337337373730FBFBF0FB0FFFF037F333373373333730BFBF0FB0FF
        FFF037F3337337333FF700FBFBFB0FFF000077F333337FF37777E0BFBFB000FF
        0FF077FF3337773F7F37EE0BFB0BFB0F0F03777FF3733F737F73EEE0BFBF00FF
        00337777FFFF77FF7733EEEE00000000033377777777777773330000}
      NumGlyphs = 2
    end
    object Panel1: TPanel
      Left = 4
      Top = 6
      Width = 596
      Height = 22
      BevelInner = bvLowered
      Caption = 'RE�ETELER'
      Color = clRed
      Font.Color = clWhite
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      object Label1: TLabel
        Left = 7
        Top = 3
        Width = 42
        Height = 14
        Caption = 'Aranan :'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object LabelAra: TLabel
        Left = 51
        Top = 4
        Width = 3
        Height = 14
        Color = clWhite
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentColor = False
        ParentFont = False
      end
    end
    object Panel2: TPanel
      Left = 4
      Top = 225
      Width = 596
      Height = 21
      BevelInner = bvLowered
      Caption = 'RE�ETE   ��ER�KLER�'
      Color = clRed
      Font.Color = clWhite
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      object Label4: TLabel
        Left = 496
        Top = 3
        Width = 88
        Height = 14
        Caption = 'Hasta Bul F6 Tu�u'
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        OnClick = DBGridRECBDblClick
      end
    end
    object BitBtnIptal: TBitBtn
      Left = 504
      Top = 355
      Width = 95
      Height = 25
      Hint = 'Esc'
      HelpContext = 111
      Cancel = True
      Caption = 'Vazge�'
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ModalResult = 2
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 6
      OnClick = BitBtnIptalClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333333333333333333333333FFF33FF333FFF339993370733
        999333777FF37FF377733339993000399933333777F777F77733333399970799
        93333333777F7377733333333999399933333333377737773333333333990993
        3333333333737F73333333333331013333333333333777FF3333333333910193
        333333333337773FF3333333399000993333333337377737FF33333399900099
        93333333773777377FF333399930003999333337773777F777FF339993370733
        9993337773337333777333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
    end
    object BitBtn1: TBitBtn
      Left = 109
      Top = 355
      Width = 145
      Height = 25
      HelpContext = 111
      Caption = '&R.K.Def. Kay�t Et/��kar'
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
      OnClick = BitBtn1Click
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500000000055
        555557777777775F55550FFFFFFFFF0555557F5555555F7FFF5F0FEEEEEE0000
        05007F555555777775770FFFFFF0BFBFB00E7F5F5557FFF557770F0EEEE000FB
        FB0E7F75FF57775555770FF00F0FBFBFBF0E7F57757FFFF555770FE0B00000FB
        FB0E7F575777775555770FFF0FBFBFBFBF0E7F5575FFFFFFF5770FEEE0000000
        FB0E7F555777777755770FFFFF0B00BFB0007F55557577FFF7770FEEEEE0B000
        05557F555557577775550FFFFFFF0B0555557FF5F5F57575F55500F0F0F0F0B0
        555577F7F7F7F7F75F5550707070700B055557F7F7F7F7757FF5507070707050
        90555757575757577755050505050555055575757575755575550000}
      NumGlyphs = 2
    end
    object BitBtn2: TBitBtn
      Left = 7
      Top = 355
      Width = 93
      Height = 25
      Hint = 'Ctrl-Delete Tu�u'
      HelpContext = 111
      Caption = 'Re�ete &Sil'
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      OnClick = BitBtn2Click
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        55555FFFFFFF5F55FFF5777777757559995777777775755777F7555555555550
        305555555555FF57F7F555555550055BB0555555555775F777F55555550FB000
        005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F
        B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0
        B05555577F555557F7F5550E0BFBFB00B055557575F55577F7F550EEE0BFB0B0
        B05557FF575F5757F7F5000EEE0BFBF0B055777FF575FFF7F7F50000EEE00000
        B0557777FF577777F7F500000E055550805577777F7555575755500000555555
        05555777775555557F55550005555555055555777555555575550000}
      NumGlyphs = 2
      Spacing = 7
    end
    object BitBtnARA: TBitBtn
      Left = 262
      Top = 355
      Width = 129
      Height = 25
      HelpContext = 111
      Caption = 'Re�ete Tarihi &Ara'
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 4
      OnClick = BitBtnARAClick
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        55555FFFFFFF5F55FFF5777777757559995777777775755777F7555555555550
        305555555555FF57F7F555555550055BB0555555555775F777F55555550FB000
        005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F
        B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0
        B05555577F555557F7F5550E0BFBFB00B055557575F55577F7F550EEE0BFB0B0
        B05557FF575F5757F7F5000EEE0BFBF0B055777FF575FFF7F7F50000EEE00000
        B0557777FF577777F7F500000E055550805577777F7555575755500000555555
        05555777775555557F55550005555555055555777555555575550000}
      NumGlyphs = 2
      Spacing = 7
    end
  end
  object DBGrid1: TDBGrid
    Left = 4
    Top = 247
    Width = 595
    Height = 100
    HelpContext = 111
    Color = clGray
    DataSource = SATBAKRSC
    FixedColor = clSilver
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ParentFont = False
    ReadOnly = True
    TabOrder = 1
    TitleFont.Color = clNavy
    TitleFont.Height = -11
    TitleFont.Name = 'Arial'
    TitleFont.Style = [fsBold]
  end
  object DBGridRECB: TDBGrid
    Left = 4
    Top = 30
    Width = 596
    Height = 193
    HelpContext = 111
    Color = clSilver
    Ctl3D = True
    DataSource = RecBakSRC
    FixedColor = clRed
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
    ParentCtl3D = False
    ParentFont = False
    ReadOnly = True
    TabOrder = 2
    TitleFont.Color = clWhite
    TitleFont.Height = -11
    TitleFont.Name = 'Arial Tur'
    TitleFont.Style = [fsBold]
    OnColEnter = DBGridRecBColEnter
    OnDblClick = DBGridRECBDblClick
    OnKeyDown = DBGridRECBKeyDown
    OnKeyPress = DBGridRECBKeyPress
  end
  object PanelBUL: TPanel
    Left = 240
    Top = 249
    Width = 163
    Height = 103
    HelpContext = 111
    BevelInner = bvLowered
    BorderWidth = 3
    Caption = 'PanelBUL'
    Color = clBlack
    TabOrder = 3
    Visible = False
    object Label2: TLabel
      Left = 44
      Top = 8
      Width = 75
      Height = 15
      Caption = 'Re�ete Tarihi'
      Font.Color = clWhite
      Font.Height = -12
      Font.Name = 'Arial Tur'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label3: TLabel
      Left = 44
      Top = 48
      Width = 65
      Height = 15
      Caption = 'olanlar�  bul'
      Font.Color = clWhite
      Font.Height = -12
      Font.Name = 'Arial Tur'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object MaskEdit1: TMaskEdit
      Left = 44
      Top = 24
      Width = 69
      Height = 22
      EditMask = '!99/99/9999;1;_'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial Tur'
      Font.Style = []
      MaxLength = 10
      ParentFont = False
      TabOrder = 0
      Text = '  .  .    '
      OnExit = MaskEdit1Exit
    end
    object Button1: TButton
      Left = 10
      Top = 70
      Width = 65
      Height = 23
      Caption = '&Tamam'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 89
      Top = 70
      Width = 65
      Height = 23
      Caption = '&Vazge�'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      OnClick = Button2Click
    end
  end
  object SATBAKRSC: TDataSource
    DataSet = SATBAKT
    Left = 17
    Top = 285
  end
  object SATBAKT: TTable
    BeforeDelete = SATBAKTBeforeDelete
    OnCalcFields = SATBAKTCalcFields
    DatabaseName = 'ECZ'
    IndexFieldNames = 'SATISNO'
    MasterFields = 'SATISNO'
    MasterSource = RecBakSRC
    TableName = 'SATIS.DB'
    Left = 14
    Top = 255
    object SATBAKTSATISNO: TFloatField
      DisplayWidth = 10
      FieldName = 'SATISNO'
      Visible = False
    end
    object SATBAKTSIRANOURUN: TIntegerField
      DisplayLabel = 'S�ra'
      DisplayWidth = 4
      FieldName = 'SIRANOURUN'
    end
    object SATBAKTILACNO: TIntegerField
      Alignment = taLeftJustify
      DisplayLabel = '�LA� ADI'
      DisplayWidth = 36
      FieldName = 'ILACNO'
      OnGetText = SATBAKTILACNOGetText
    end
    object SATBAKTFIYAT: TCurrencyField
      DisplayLabel = 'F�YATI'
      DisplayWidth = 14
      FieldName = 'FIYAT'
    end
    object SATBAKTMIKTAR: TIntegerField
      DisplayLabel = 'Adet'
      DisplayWidth = 4
      FieldName = 'MIKTAR'
    end
    object SATBAKTPARAKENDE: TStringField
      FieldName = 'PARAKENDE'
      Visible = False
      Size = 1
    end
    object SATBAKTTUTARI: TCurrencyField
      Calculated = True
      DisplayWidth = 17
      FieldName = 'TUTARI'
    end
    object SATBAKTSATARIH: TDateTimeField
      DisplayLabel = 'Sat�� Trh.'
      DisplayWidth = 13
      FieldName = 'SATARIH'
      DisplayFormat = 'dd/mm/yy hh:nn'
    end
  end
  object ilacBulTab: TTable
    DatabaseName = 'ECZ'
    TableName = 'URUN.DB'
    Left = 8
    Top = 232
    object ilacBulTabILACNO: TIntegerField
      FieldName = 'ILACNO'
    end
    object ilacBulTabILACAD: TStringField
      FieldName = 'ILACAD'
      Required = True
      Size = 36
    end
    object ilacBulTabMIKTAR: TIntegerField
      FieldName = 'MIKTAR'
    end
  end
  object DRBT: TTable
    DatabaseName = 'ECZ'
    TableName = 'DR.DB'
    Left = 288
    Top = 118
    object DRBTDRKOD: TIntegerField
      FieldName = 'DRKOD'
    end
    object DRBTDRAD: TStringField
      FieldName = 'DRAD'
      Size = 18
    end
    object DRBTDRSOYAD: TStringField
      FieldName = 'DRSOYAD'
      Size = 18
    end
  end
  object RecBakTab: TTable
    DatabaseName = 'ECZ'
    IndexName = 'KRMRTAT'
    TableName = 'RECETE.DB'
    Left = 22
    Top = 128
    object RecBakTabKURUMKOD: TStringField
      DisplayLabel = 'KURUM KODU'
      DisplayWidth = 12
      FieldName = 'KURUMKOD'
      Size = 11
    end
    object RecBakTabHASTANO: TIntegerField
      Alignment = taLeftJustify
      DisplayLabel = 'HASTA ADI'
      DisplayWidth = 24
      FieldName = 'HASTANO'
      OnGetText = RecBakTabHASTANOGetText
    end
    object RecBakTabSATISNO: TFloatField
      FieldName = 'SATISNO'
      Visible = False
    end
    object RecBakTabDRKOD: TIntegerField
      Alignment = taLeftJustify
      DisplayLabel = 'DOKTOR ADI'
      DisplayWidth = 18
      FieldName = 'DRKOD'
      OnGetText = RecBakTabDRKODGetText
    end
    object RecBakTabRKDEFTERNO: TStringField
      DisplayLabel = 'R.K.Def. No'
      DisplayWidth = 10
      FieldName = 'RKDEFTERNO'
      Size = 9
    end
    object RecBakTabRECTARIH: TDateField
      DisplayLabel = 'Re�.Trh.'
      DisplayWidth = 8
      FieldName = 'RECTARIH'
      DisplayFormat = 'dd/mm/yy'
    end
    object RecBakTabALTARIH: TDateField
      DisplayLabel = 'Aln.Trh'
      DisplayWidth = 8
      FieldName = 'ALTARIH'
      DisplayFormat = 'dd/mm/yy'
    end
    object RecBakTabFATARIH: TDateField
      DisplayLabel = 'Fat.Trh'
      DisplayWidth = 8
      FieldName = 'FATARIH'
      DisplayFormat = 'dd/mm/yy'
    end
  end
  object RecBakSRC: TDataSource
    DataSet = RecBakTab
    Left = 60
    Top = 130
  end
  object hastaBulT: TTable
    DatabaseName = 'ECZ'
    TableName = 'HASTA.DB'
    Left = 188
    Top = 128
    object hastaBulTHASTANO: TIntegerField
      FieldName = 'HASTANO'
    end
    object hastaBulTBORC: TCurrencyField
      FieldName = 'BORC'
    end
    object hastaBulTHASTADI: TStringField
      FieldName = 'HASTADI'
      Size = 18
    end
    object hastaBulTHASTASOYAD: TStringField
      FieldName = 'HASTASOYAD'
      Size = 18
    end
  end
  object QRecKDef: TQuery
    DatabaseName = 'ECZ'
    Params.Data = {
      0100020003494C4B000B080000005443639DCC42000103534F4E000B08000000
      EA1B0FA1CC420001}
    SQL.Strings = (
      'SELECT RECETE.RKDEFTERNO, RECETE.RECTARIH'
      'FROM RECETE'
      'WHERE '
      '(RECETE.RECTARIH>:ILK) AND'
      '(RECETE.RECTARIH<:SON) AND'
      '(RECETE.RKDEFTERNO<'#39'XX0000001'#39')'
      'ORDER BY RECETE.RKDEFTERNO')
    Left = 104
    Top = 320
    object QRecKDefRKDEFTERNO: TStringField
      FieldName = 'RKDEFTERNO'
      Size = 9
    end
  end
  object QHRKSIL: TQuery
    DatabaseName = 'ECZ'
    Params.Data = {010001000441734E6F0006080000000000000000000000}
    SQL.Strings = (
      'DELETE FROM HAREKET'
      'WHERE  (ALSAT='#39'S'#39') AND (ALSATNO=:AsNo)')
    Left = 302
    Top = 315
  end
  object QFATSIL: TQuery
    DatabaseName = 'ECZ'
    Params.Data = {01000100055361744E6F0006080000000000000000000000}
    SQL.Strings = (
      'DELETE FROM FATURA'
      'WHERE SATISNO=:SatNo')
    Left = 270
    Top = 315
  end
  object QhrkUYARI: TQuery
    DatabaseName = 'ECZ'
    Params.Data = {01000100055541734E6F0006080000000000000000000000}
    SQL.Strings = (
      'SELECT '
      'HAREKET.CARIKOD,'
      'HAREKET.BORC'
      'FROM HAREKET'
      'WHERE   (ALSATNO=:UAsNo) AND (ALSAT='#39'S'#39') AND'
      '(NIHAI<>1)')
    Left = 240
    Top = 312
    object QhrkUYARICARIKOD: TStringField
      FieldName = 'CARIKOD'
      Size = 11
    end
    object QhrkUYARIBORC: TCurrencyField
      FieldName = 'BORC'
    end
  end
  object KrmBorcSil: TTable
    DatabaseName = 'ECZ'
    TableName = 'KRMLAR.DB'
    Left = 369
    Top = 311
    object KrmBorcSilKOD: TStringField
      FieldName = 'KOD'
      Required = True
      Size = 11
    end
    object KrmBorcSilBORC: TCurrencyField
      FieldName = 'BORC'
    end
  end
  object UrunHrkSTab: TTable
    DatabaseName = 'ECZ'
    IndexFieldNames = 'ILACNO;GCTARIH;ALSATNO;SIRANO'
    MasterFields = 'ILACNO;SATARIH;SATISNO;SIRANOURUN'
    MasterSource = SATBAKRSC
    TableName = 'URUNHRK.DB'
    Left = 328
    Top = 312
    object UrunHrkSTabGCTARIH: TDateTimeField
      DisplayWidth = 15
      FieldName = 'GCTARIH'
    end
    object UrunHrkSTabILACNO: TIntegerField
      DisplayWidth = 10
      FieldName = 'ILACNO'
    end
    object UrunHrkSTabALSATNO: TFloatField
      DisplayWidth = 10
      FieldName = 'ALSATNO'
    end
    object UrunHrkSTabCIKMIK: TIntegerField
      DisplayWidth = 10
      FieldName = 'CIKMIK'
    end
    object UrunHrkSTabSIRANO: TIntegerField
      DisplayWidth = 10
      FieldName = 'SIRANO'
    end
  end
  object QSILSAT: TQuery
    DatabaseName = 'ECZ'
    Params.Data = {0100010006536174694E6F0006080000000000000000000000}
    SQL.Strings = (
      'DELETE FROM SATIS'
      'WHERE SATISNO=:SatiNo')
    Left = 208
    Top = 312
  end
  object QsskREC: TQuery
    DatabaseName = 'ECZ'
    Params.Data = {0100010007536174696D4E6F0006080000000000000000000000}
    SQL.Strings = (
      'DELETE FROM RECSSK'
      'WHERE SATISNO=:SatimNo')
    Left = 272
    Top = 344
  end
  object QSSKREC_A: TQuery
    DatabaseName = 'ECZ'
    Params.Data = {010001000453614E6F0006080000000000000000000000}
    SQL.Strings = (
      'DELETE FROM RECSSK_A'
      'WHERE SATISNO=:SaNo')
    Left = 304
    Top = 344
  end
  object Table1: TTable
    DatabaseName = 'ECZ'
    TableName = 'RECSSK_A.DB'
    Left = 408
    Top = 312
  end
  object QSTKSIL: TQuery
    DatabaseName = 'ECZ'
    Params.Data = {01000100077361744E6F73750006080000000000000000000000}
    SQL.Strings = (
      'DELETE FROM URUNHRK '
      'WHERE (ALSATNO=:satNosu) AND'
      '(CIKMIK IS NOT NULL)')
    Left = 360
    Top = 272
  end
  object RecKayitNo: TTable
    DatabaseName = 'ECZ'
    TableName = 'RKAYIT.DB'
    Left = 146
    Top = 356
    object RecKayitNoRECETEKAYITNO: TStringField
      FieldName = 'RECETEKAYITNO'
      Size = 9
    end
  end
  object prosesTab: TTable
    DatabaseName = 'ECZ'
    TableName = 'PROSES.DB'
    Left = 16
    Top = 336
    object prosesTabTARIH: TDateTimeField
      FieldName = 'TARIH'
    end
    object prosesTabACIKLA: TStringField
      FieldName = 'ACIKLA'
      Size = 36
    end
    object prosesTabISLETNO: TFloatField
      FieldName = 'ISLETNO'
    end
    object prosesTabMIKTAR: TIntegerField
      FieldName = 'MIKTAR'
    end
    object prosesTabFIYAT: TCurrencyField
      FieldName = 'FIYAT'
    end
    object prosesTabTUTAR: TCurrencyField
      FieldName = 'TUTAR'
    end
    object prosesTabISLETIPI: TStringField
      FieldName = 'ISLETIPI'
      Size = 15
    end
  end
  object UserAbc: TTable
    DatabaseName = 'ECZ'
    TableName = 'usera.db'
    Left = 48
    Top = 337
    object UserAbcKULLANICI: TStringField
      FieldName = 'KULLANICI'
      Size = 25
    end
    object UserAbcURUNKARTI: TStringField
      FieldName = 'URUNKARTI'
      Size = 1
    end
  end
end